﻿''' <summary>
''' 探空气象其它选项类
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class LocaleWeatherDataElse
    Implements ICloneable

    ''' <summary>
    ''' 总层数 (Integer)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_sumTier As Integer
    ''' <summary>
    ''' 层数 (Integer)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_countTierData As Integer

    ''' <summary>
    ''' 总层数 (Integer)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property SumTier() As Integer
        Get
            Return Me.m_sumTier
        End Get
        Set(ByVal value As Integer)
            Me.m_sumTier = value
        End Set
    End Property
    ''' <summary>
    ''' 层数 (Integer)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property CountTierData() As Integer
        Get
            Return Me.m_countTierData
        End Get
        Set(ByVal value As Integer)
            Me.m_countTierData = value
        End Set
    End Property

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim objCopy As New LocaleWeatherDataElse
        objCopy.m_sumTier = Me.m_sumTier
        objCopy.m_countTierData = Me.m_countTierData
        Return objCopy
    End Function
End Class
